########################################################## # Cargar programas library("ggplot2") library("ggthemes") library("scales") ########################################################## ### Base de datos desde URL urlfile<-'https://alanphd.com/archivos/tomas.csv' Tomas<- read.csv(urlfile, header=T, na.strings= c('NA', -99), quote="\"", dec=".") Tomas ########################################################## # Graficar p2 <- ggplot(Tomas, aes(x = year, y = tomas)) + geom_point() + geom_line()+ ggtitle("Cobertura del sistema de agua potable: Hermosillo") + labs(caption = "(CEA, 2010. Análisis costo-beneficio social del proyecto de abastecimiento de agua potable Acueducto Independencia)")+ xlab("Año") + ylab("Número de tomas") + geom_vline(xintercept = 2010) p2 ########################################################## # Economist puts scales on the right-hand side p2 + theme_economist() + scale_colour_economist() + scale_y_continuous(position = "right", labels=comma) + theme(text = element_text(size=12)) ##################################################################
Gráfica Tipo El Economista
Dr. Luis Alan Navarro Navarro
Centro de Estudios en Gobierno y Asuntos Públicos
El Colegio de Sonora